home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Demos / Evatac Software / Preditor 3.0 / Tools / MPW & ToolServer / Copy to ToolServer Folder / PreditorStartup•411 < prev   
Text File  |  1995-08-24  |  3KB  |  85 lines
  1. #
  2. #    PreditorStartup•411
  3. #   ToolServer script for Preditor 3
  4. #
  5. #   © Copyright Evatac Software  1988-1994
  6. #   All rights reserved
  7. #
  8.  
  9. #    The commands in this section MUST NOT BE ALTERED, or the link between
  10. #    Preditor and ToolServer will not function correctly.
  11.  
  12. #    411 startup script for use with Preditor and ToolServer.
  13. #    This script is a modified version of the UserStartup•Help script
  14. #    that comes with MPW 411. Because of the limitations of ToolServer,
  15. #    some functionality is not available, but the basic template and
  16. #    lookup functions are available.
  17.  
  18. #    Do not install this script unless you have 411 installed.
  19.  
  20. #    This script is derived from the 411 "UserStartup•Help" script,
  21. #    copyright ©1991, 1992 Apple Computer Inc.
  22.  
  23. #
  24. #        To automatically mount your 411 file server when MPW launches...
  25. #
  26. #     Set the "Help_Server" variable to the "zone:server:volume" where your "411"
  27. #    help folder resides.  Requires the MPW 3.2 Choose command.
  28. #
  29.     
  30.     Set Help_Server     ""  # "Development Tools:Okefenokee:The Star:"
  31.     Set Guest           0    # set to 1 # if you want to log on as guest, else set to 0.
  32.  
  33.     IF "{Help_Server}" != ""
  34.         if not "`Exists "{Help_Server}"`"
  35.             IF {Guest}
  36.                 Choose "{Help_Server}"  -guest
  37.             Else
  38.                 Choose "{Help_Server}"  -u "{User}" -askpw
  39.             End
  40.         End
  41.     End
  42.  
  43. #    Set type of header - default is abreviated header
  44.  
  45.     Set headerStyle    -h2    # Set headerStyle -h # Expanded header -lists all files searched
  46.     
  47. #    Specify the help directory
  48.     
  49.     Set HelpDirectory "{ShellDirectory}Help Folder:"
  50.         
  51. #    Get the location of:
  52. #    ... the 411 directory, 
  53. #    ... the current 411 template and 
  54.  
  55.     if not "`Exists "{HelpDirectory}"`"
  56.         NewFolder "{HelpDirectory}"
  57.     End
  58.  
  59.     if  "`Exists "{HelpDirectory}"Help_Folder`" 
  60.         Set Help_Folder     "`Catenate "{HelpDirectory}"Help_Folder`"; set filesStatus 0;∂
  61.         set exit 0;(set x "`Files "{Help_Folder}"≈Help`") ≥dev:null; Set filesStatus {status}; ∂
  62.         if "{x}" != ""; set filesStatus 1; end; set exit 1; ∂
  63.     End
  64.     
  65.     if not "`Exists "{HelpDirectory}"Help_Folder`" || not "`Exists "{Help_Folder}"`" || !{filesStatus}
  66.         Set exit 0; Set temp "{Boot}"; Loop; ∂
  67.         Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ∂"411∂" folder?")≥dev:null`"; ∂
  68.         if "{temp}"!=""; Echo -n "{temp}" > "{HelpDirectory}"Help_Folder; ∂
  69.         Set Help_Folder "{temp}"; Else; set exit 1; exit; End; ∂
  70.         (set x "`Files "{temp}"≈Help`") ≥dev:null; ∂
  71.         if  "{x}"==""; Alert 411 - The ∂"{temp}∂" folder does not contain Help files.; else; break; end; End; ∂
  72.         set exit 1 ; ∂
  73.     End
  74.  
  75.     if not "`Exists "{HelpDirectory}"Help_Files`"
  76.         Set exit 0;(Files "{Help_Folder}"≈Help -q)≥ dev:null > "{HelpDirectory}"Help_Files;set exit 1
  77.     End
  78.     
  79.     Set Help_Folder     "`Catenate "{HelpDirectory}"Help_Folder`"
  80.  
  81.     Export HelpDirectory
  82.     if not "`Exists "{HelpDirectory}"Help`"
  83.         Echo  > "{HelpDirectory}"Help
  84.     End
  85.